1 :POKE50257,16
10 POKE56,128:CLR:DIMA(9,9),B(9,9),C(9,9):ST$="   [157][157][157]   [146]":SYS9822
20 POKE53281,0:POKE53280,15:GOSUB90:POKE650,128:RESTORE
30 PI=54272:V=53248:POKEV+21,0:POKEV+29,0:POKEV+23,0:WR=0:SP=2:CP=2:YR=-2
40 FORI=0TO9:XR=0:FORX=0TO9:A(I,X)=XR:B(I,X)=YR:C(I,X)=WR
50 XR=XR+4:NEXT:YR=YR+3:NEXT
60 C(4,4)=1:C(4,5)=-1:C(5,4)=-1:C(5,5)=1
80 FORI=1TO8:READB4(I),B5(I):NEXT:GOTO250
90 PRINTCHR$(14);:PRINT"[147]";
100 PRINT"        [144][146]     [144][146]  [144][146]   [144][146]  ";
110 PRINT"   [144][146]     [144][146]     [144][146]   [144][146]         ";
120 PRINT"[144][146]   [144][146]  [144][146]     [144][146]   [144][146]  [144][146]     [144][146]   [144][146]  ";
130 PRINT"[144][146]      [144][146]         [144][146]   [144]  [144][146]     ";
140 PRINT"[144][146]   [144][146]  [144][146]     [144][146]   [144][146]  [144][146]      [144][146]    ";
150 PRINT"    [158]    [144][146] [158]  [144][146]   [158] [144][146]  [158] [144][146] [158]  [144][146]   [158] ";
160 PRINT"   [144][146] [158]    [144][146]  [158] [144][146]        [149] [144][146] [149] [144][146]  [149] ";
170 PRINT"[144] [146]   [149][181][146][161][181][146][161][144] [149] [144][146]    [149] [144][146] [149] [144][146]  [149]    [144][146]  ";
180 PRINT"[149] [144][146]        [154] [144][146]  [154] [144][146] [154] [144][146]     [154]  [144][146]  [154] ";
190 PRINT"[144][146]    [154] [144][146]  [154] [144][146]    [154] [144][146]  [154] [144][146]        [159] ";
200 PRINT"[144][146]  [159] [144][146] [159]    [144][146]  [159][161][146][161]      [144][146] [159] [144][146]  [159] [144][146] [159] ";
210 PRINT"   [144][146]  [159] [144][146]                   ";
220 PRINT"                         ";
230 PRINT"           [158]   VON [202]UERGEN";
240 PRINT" [202]OST[144]":RETURN
250 PRINT"          [150]  1 - [211]PIELANLEITUNG[144] "
260 PRINT"            [150]2[144] [150]- [211]PIELSTART";
270 SYS32768:POKE198,0:FORI=54276TO54290STEP7:POKEI,0:NEXT
280 IFPEEK(33216)=56THEN310
290 IFPEEK(33216)=59THEN580
300 GOTO270
310 POKE646,12:PRINTCHR$(147):XR=12:YR=1:GOSUB1790
320 PRINT"[211]PIELANLEITUNG"
330 PRINT"[214]ERSUCHE MOEGLICHST VIELE [211]TEINE DER    "
340 PRINT"EIGENEN [198]ARBE AUF DAS [194]RETT ZU SETZEN.  "
350 PRINT"[218]U [194]EGINN LIEGEN JE 2 [211]TEINE DER BEIDEN "
360 PRINT"[198]ARBEN IN DER [205]ITTE. [204]EGE NUN WAEHREND  "
370 PRINT"DEINES [218]UGES EINEN [211]TEIN DEINER [198]ARBE   "
380 PRINT"AUF DAS [194]RETT. [196]IESES MUSS IMMER SO     "
390 PRINT"GESCHEHEN, DASS DIE [211]TEINE DES [195]OMPUTERS"
400 PRINT"VON DEINEN [211]TEINEN IN [204]INIE EIN-        "
410 PRINT"GESCHLOSSEN WERDEN. [200]ORIZONTAL[146],VERTIKAL[146] "
420 PRINT"ODER DIAGONAL[146]. [196]IE EINGESCHLOSSENEN     "
430 PRINT"[211]TEINE WECHSELN DIE [198]ARBE.   < [212]ASTE > ";
440 GETQ$:IFQ$=""THEN440
450 PRINT"[147][203]ANN KEIN [211]TEIN GEDREHT WERDEN, MUSS MAN "
460 PRINT"PASSEN. [218]UM [208]ASSEN SETZE OBEN LINKS IN  "
470 PRINT"DAS ROTE [198]ELD EINEN [211]TEIN. [196]AS [211]PIEL    "
480 PRINT"ENDET, WENN ALLE 64 [198]ELDER BELEGT SIND  "
490 PRINT"ODER KEIN [211]TEIN MEHR GESETZT WERDEN     "
500 PRINT"KANN. [205]IT DEM [202]OYSTICK ODER DER [212]ASTATUR"
510 PRINT"KANN DAS [203]REUZ ZUM [211]ETZEN DER [211]TEINE    "
520 PRINT"BEWEGT WERDEN. [205]IT [198]EUER ODER [211]PACE WIRD"
530 PRINT"DER [211]TEIN GESETZT. [194]EI EINER [198]EHLEINGABE"
540 PRINT"WIRD DAS [203]REUZ AN DEN ZULETZT GESETZTEN "
550 PRINT"[195]OMPUTERSTEIN ZURUECK GESETZT. < [212]ASTE >";
560 GETQ$:IFQ$=""THEN560
570 GOSUB90:GOTO250
580 POKE2040,129:POKEV+39,11
600 PRINTCHR$(147):POKE646,12
610 XR=5:YR=5:GOSUB1790
620 PRINT"[202]OYSTICK  #2"
630 XR=5:YR=7:GOSUB1790
640 PRINT"<[211]PACE> = [211]TEIN SETZEN"
650 PRINT"           [193] = [203]REUZ RECHTS"
660 PRINT"           [211] = [203]REUZ LINKS"
670 PRINT"           [208] = [203]REUZ HOCH"
680 PRINT"           [204] = [203]REUZ RUNTER"
690 SS=2
700 XR=5:YR=14:GOSUB1790
710 PRINT"[211][146]CHWARZ ODER [215][146]EISS ? ";:POKE204,0
720 GETQ$:IFQ$="S"THENC=1:H=-1:GOTO750
730 IFQ$="W"THENC=-1:H=1:GOTO750
740 GOTO720
750 POKE204,1:PRINTQ$
760 XR=5:YR=16:GOSUB1790
770 PRINT"[215]OLLEN [211]IE ANFANGEN ( [202][146] / [206][146] ) ? ";:POKE204,0
780 GETQ$:IFQ$="J"THEN810
790 IFQ$="N"THEN810
800 GOTO780
810 POKE204,1:PRINTQ$:GOSUB1510:TT=H:TE=C:SP=CP:NE=4:WW=0
820 IFQ$="J"THENIA=4:XA=5:GOTO1040
830 BB=-1:IA=0:XA=0:TT=H:TE=C:XR=1:YR=11:GOSUB1790:PRINT"C[146][157]";:POKE204,0
840 FORI=1TO8:FORX=1TO8
850 IFC(I,X)<>0THEN980
860 GOSUB1390
870 IFFB=0THEN980
880 UT=-1:GOSUB1420
890 IFSV=0THEN980
900 IF(I-1)*(I-8)<>0THEN920
910 SV=SV+SS
920 IF(X-1)*(X-8)<>0THEN940
930 SV=SV+SS
940 IFSV<BBTHEN980
950 IFSV>BBTHEN970
960 IFRND(1)>0.5THEN980
970 BB=SV:IA=I:XA=X:GOSUB1750
980 NEXTX,I
990 IFBB>0THEN1020
1000 IFWW=1THEN1860
1010 WW=1:X=0:I=1:GOSUB1750:POKE204,1:PRINT"C[146]":PO=23:GOSUB2030:GOTO1050
1020 I=IA:X=XA:UT=1:WW=0:POKE204,1:PRINT"C":PO=23:GOSUB2030
1030 GOSUB1750:GOSUB1420:GOSUB1710:GOSUB1830
1040 I=IA:X=XA:POKEV+21,1
1050 TE=H:TT=C:XR=37:YR=12:GOSUB1790:PRINT"S[146][157]";:POKE204,0:POKE198,0
1060 J=PEEK(56320):GETQ$
1070 IF(JAND1)=0ORQ$="P"THENI=I-1
1080 IF(JAND2)=0ORQ$="L"THENI=I+1
1090 IF(JAND4)=0ORQ$="A"THENX=X-1
1100 IF(JAND8)=0ORQ$="S"THENX=X+1
1110 IFX=0ANDI=1THEN1160
1120 IFX<1THENX=1
1130 IFX>8THENX=8
1140 IFI>8THENI=8
1150 IFI<1THENI=1
1160 IF(JAND16)=0ORQ$=" "THEN1210
1170 XR=A(I,X)*8+24:YR=B(I,X)*8+50
1180 IFXR>255THENXR=XR-255:POKEV+16,1:GOTO1200
1190 IFXR<255THENPOKEV+16,0
1200 POKEV,XR:POKEV+1,YR:GOTO1060
1210 POKEV+21,0:POKE204,1:PRINT"S":PO=20:GOSUB2030
1220 IFX<>0THEN1250
1230 IFWW=1THEN1860
1240 WW=1:GOTO830
1250 WW=0
1260 IFC(I,X)=0THEN1280
1270 GOSUB2030:GOTO1040
1280 GOSUB1390
1290 IFFB=1THEN1310
1300 GOSUB2030:GOTO1040
1310 UT=-1:GOSUB1420:IFSV>0THEN1330
1320 GOSUB2030:GOTO1040
1330 WW=0:UT=1:GOSUB1420:GOSUB1710:GOSUB1800:GOTO830
1380 DATA0,1,-1,1,-1,0,-1,-1,0,-1,1,-1,1,0,1,1
1390 FB=0:FORIC=-1TO1:FORXC=-1TO1:IFC(I+IC,X+XC)=TTTHEN1410
1400 NEXTXC,IC:RETURN
1410 FB=1:RETURN
1420 SV=0:FORKT=1TO8:ID=B4(KT):XD=B5(KT):IK=I+ID:XK=X+XD:SQ=0
1430 IFC(IK,XK)<>TTTHEN1500
1440 SQ=SQ+1:IK=IK+ID:XK=XK+XD
1450 IFC(IK,XK)=TETHEN1480
1460 IFC(IK,XK)=0THEN1500
1470 GOTO1440
1480 SV=SV+SQ:IFUT<>1THEN1500
1490 IK=I:XK=X:FORKK=0TOSQ:C(IK,XK)=TE:IK=IK+ID:XK=XK+XD:NEXTKK
1500 NEXTKT:RETURN
1510 POKEV+17,PEEK(V+17)AND239:POKE53280,0:POKE53281,5:POKE646,0
1520 PRINTCHR$(142);:PRINTCHR$(147);
1530 PRINT"   [146][176][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][174]    [146]";
1540 FORI=0TO7
1550 FORX=0TO1
1560 PRINT"   [146][194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]    [146]";
1570 NEXT
1580 IFI=7THENNEXT:GOTO1610
1590 PRINT"   [146][171][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][179]    [146]";
1600 NEXT
1610 PRINT"   [146][173][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][189]   [146]";
1620 POKE2023,160:POKE56295,0
1630 POKE646,0:POKE211,0:POKE214,0:SYS58732:PRINT"PAS[157][157][157][150]";ST$;"[144][157][157][157]SEN[146]"
1640 GOSUB1710
1650 XR=1:YR=11:POKE646,0:POKE199,1:GOSUB1790
1660 PRINT"C[157]O[157]M[157]P[157]U[157]T[157]E[157]R"
1670 XR=37:YR=12:POKE646,0:POKE199,1:GOSUB1790
1680 PRINT"S[157]P[157]I[157]E[157]L[157]E[157]R"
1690 GOSUB1990:POKEV+17,PEEK(V+17)OR16:RETURN
1700 POKE211,A(I,X):POKE214,B(I,X):SYS58732:PRINTST$;:RETURN
1710 FORI=1TO8:FORX=1TO8
1720 IFC(I,X)<0THENPOKE646,0:GOSUB1700
1730 IFC(I,X)>0THENPOKE646,15:GOSUB1700
1740 NEXT:NEXT:RETURN
1750 XR=A(I,X)*8+24:YR=B(I,X)*8+50
1760 IFXR>255THENXR=XR-255:POKEV+16,1:GOTO1780
1770 IFXR<255THENPOKEV+16,0
1780 POKEV,XR:POKEV+1,YR:POKEV+21,1:RETURN
1790 POKE211,XR:POKE214,YR:SYS58732:RETURN
1800 SP=SP+SV+1:CP=CP-SV:NE=NE+1:GOSUB1990
1810 IFCP=0ORNE=64THENGOTO1860
1820 RETURN
1830 CP=CP+SV+1:SP=SP-SV:NE=NE+1:GOSUB1990
1840 IFSP=0ORNE=64THENGOTO1860
1850 RETURN
1860 IFCP>SPTHENGOTO1900
1870 IFCP<SPTHENGOTO1920
1880 XR=3:YR=0:POKE646,0:POKE199,1:GOSUB1790
1890 PRINT"  DAS SPIEL GING UNENTSCHIEDEN AUS   ";:GOTO1940
1900 XR=3:YR=0:POKE646,0:POKE199,1:GOSUB1790
1910 PRINT"   DAS SPIEL GEWANN DER COMPUTER     ";:GOTO1940
1920 XR=3:YR=0:POKE646,0:POKE199,1:GOSUB1790
1930 PRINT"      DAS SPIEL GEWANNST DU          ";
1940 XR=0:YR=24:POKE646,0:POKE199,1:GOSUB1790
1950 PRINT"         <   T  A  S  T  E   >         [157][157][157][157][157]";
1960 FORI=1TO2000:GETA$:IFA$=""THENNEXT:POKEV+21,0:GOTO20
1970 I=2000:NEXT:POKEV+21,0:GOTO20
1990 XR=0:YR=20:POKE199,1:POKE646,0:GOSUB1790
2000 PRINT"   [157][157][157]";CP
2010 XR=36:YR=20:POKE199,1:POKE646,0:GOSUB1790
2020 PRINT"   [157][157][157]";SP:RETURN
2030 POKEPI+24,15:POKEPI+18,17:POKEPI+19,0:POKEPI+20,200
2040 POKEPI+14,50:POKEPI+15,PO:FORIQ=1TO250:NEXT:POKEPI+18,0:POKEPI+24,15:RETURN